Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl
    
    ...
    
    warn "$re\n";
    /^$re$/ and print while <>;