my $test = "Hello World"; my $new = substr($test, 6,5) . "-" . substr($test,0,5); print $new;