my( $x, $y, $z ) = ( 80, 60, 64 );
my $searchWord = 'BrowserUk';
my $re_Z = qr[ ## Not a valid regex.
    B 
    .{80*60} r
    .{80*60} o
    .{80*60} w
    .{80*60} s
    .{80*60} e
    .{80*60} r
    .{80*60} U
    .(80*60} k
]x;