[ILUG] Quick perl q

[Breathnach, Proinnsias (Dublin)]

Final result is reasonable ... (I could add a few tabs etc ... but I don't
need 'em ...)

-------------------------------8<--------------------------------
#!/<path to>/bin/perl

while (<>) {
        $out=$_;
        # Remove tabs , ^s and newlines ...
        $out=~s/\t//g;
        $out=~s/\^//g;
        $out=~s/\n//g;

        $out=~s/{/
{/g;
        $out=~s/}/}
/g;

        print $out;
}
# print a newline to end with !
print "\n";
-------------------------------8<--------------------------------

Thanks to all who took part ...


P