Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
while(<DATA>){
...
abc def
xyz 6-7
123 456

Select or download this

<abc><def>
Use of uninitialized value in concatenation (.) or string at x line 5,
+ <DATA> line 2.
Use of uninitialized value in concatenation (.) or string at x line 5,
+ <DATA> line 2.
<><>
<123><456>