Help for this page

Select Code to Download


  1. or download this
    use Modern::Perl;

...
__DATA__
IF-abc/12 [Se/0/0] [Second data][third]
IF-abc/1 [Gi/0/0] [Second data ]
  2. or download this
    [Se/0/0][Gi/0/0]
  3. or download this
    say /(\[.*?\])/ while <DATA>;
  4. or download this
    [Se/0/0]
[Gi/0/0]