Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 12 lines (8 sloc) 121 Bytes
#!/usr/bin/perl
my $pattern = shift;
while (<>) {
s/($pattern)/\e[1;32m$1\e[0m/g;
}
continue {
print or die
}