#!/usr/bin/perl
# splits output from ls *.png into arguments for makefont

while($entry = <STDIN>) {
	if ($entry =~ m/.*\/(.*)\.png/) {
		$name = $1;
	}
	elsif ($entry =~ m/(.*)\.png/) {
		$name = $1;
	}
	print "$name $entry";
}