sub strip($);

my $str = '
   begone
   leading
   whitespace
';

print strip $str, "   ->this is extra stuff";

sub strip ($) {
    my $str = shift;
    $str =~ s/^\s+//gm;
  $str;
}