Help for this page

Select Code to Download


  1. or download this
    my ($numbers) = $file =~ m/(\d{3})$/;
  2. or download this
    my $numbers = substr ($file, -3, 3);