#!/usr/bin/perl

# http://perlmonks.org/?node_id=1207241

use strict;
use warnings;

my $specific = 'right';

while(<DATA>)
  {
  chomp;
  /(?|(.*?)($specific.*)|(.*)())/;
  printf "%-12s  \\1=%4s  \\2=%s\n", $_, $1, $2;
  }

__DATA__
left
right
rightabc
leftright
leftrightabc