Help Please

[Jyoti]

Can someone explain me what these symbols mean in regular expression:

my $trim = sub {local($_)=shift;
     $$_ =~ s/^\s*//;
     $$_ =~ s/\s*$//;};

Thanks.