#!/usr/bin/perl

@a = (
    'cat < /usr/man/man1/who.1 | nroff -man -h > /tmp/man.2664',
    'cat < /tmp/man.26646| ul',
    'cat /tmp/foo | ul',
);

$\ = "\n";

for (@a) {
    print "was: ", $_;
    if (/^\s*cat\s*<?\s*([^\s|]+)\s*\|\s*([^|]+)/) {
	($file, $cmd) = ($1, $2);
	print 'now: ', $cmd, ' < ', $file;
    } else {
	print "No match.";
    } 
} 
