sub x(_) {
    my $s = shift;
    ## make changes to $s ...
}