Help for this page

Select Code to Download


  1. or download this
    my $file = ($self->{Filename} =~ /^(.*)$/;
  2. or download this
    foreach (keys %$self) {
    $self->{$_} = ($self->{$_} =~ /^(.*)$/);
}