Help for this page

Select Code to Download

Select or download this

#!/bin/perl -w
use strict;
foreach( <DATA>)
...
1_ab1c/22_deg/bla_30_31_blah
1_a2b33c/22_deg/bla_30_31_blah
a_ab1c/b_deg/bla_30_31_blah