Select Code to Download

sub delete_first_char {
    $_[0] =~ s/^.//
}

sub whatever {
    ($var1,$var2,$etc) = @_;
...
}