Help for this page

Select Code to Download

Select or download this
```
my $file = /(1M01)(\_)(F)(\0+)(121)/;
```

Select or download this

my $file = '1M01_F00121.npt.gro';
if ( $file =~ /(1M01)(_)(F)(0+)(121)/ ) {
...
$3 = 'F'
$4 = '00'
$5 = '121'