как из переменной
$temp='test lol tits';
взять толко 'lol' и по 3 символа от него, например?
'st lol ti'
что-то типа такого быть вроде должно:
$test =~ /([.*{3}]lol[.*{3}])/i;

$test=~ /\w\w\w\lol\w\w\w/;

$test=~/.{3}lol.{3}/;