Help for this page

Select Code to Download

Select or download this

if (/\{T\}/) {
    my $throwaway_line=<DATA>;
...
else {
    print ; # print with no arguments prints $_
}