#!/usr/ug/bin/perl

$st = "\033[7m";
$en = "\033[m";

print "Enter regex:  ";
$re = <>;
chomp $re;
while () {
    print "Enter string:  ";
    $s = <>;
    chomp $s;
    exit unless $s;
    $s =~ s/$re/$st$&$en/g;
    print $s . "\n";
}