my $string = '123-4567';
$string =~ s/-//g;
print $string;

##</code><code>##

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