my $i='123-4567';
my $j;
while( length($i) ){
	$j .= chop( $i );
	chop $j if substr( $j, -1 ) eq '-';
}
print reverse split //, $j;