Expression reguliere

lami20j@debian:~/trash$ cat regex.txt
ligne 1 : abc bleu
ligne 2 : xyz rouge
lami20j@debian:~/trash$ perl -ne 'print $1,"\n" if /.*\s\w(\w)\w\s+bleu/' regex.txt
b
lami20j@debian:~/trash$ perl -ne 'print $1,"\n" if /.*\s\w(\w)\w\s+rouge/' regex.txt
y

lami20j@debian:~$ cat regex.txt
ligne 1 : abc bleu
ligne 2 : xyz rouge
lami20j@debian:~$ perl -ne 'print $1,"\n" if /.*\s\w(\w)\w\s+(bleu|rouge)/' regex.txt
b
y

root@debian:~# cat regex.txt
ligne 1 : 1A abc bleu
ligne 2 : xyz 2BC rouge

root@debian:~# perl -ne 'print $1,"\n" if /.*:\s*(\w+)\s+(\w+)\s+(bleu)/' regex.txt
1A
root@debian:~# perl -ne 'print $2,"\n" if /.*:\s*(\w+)\s+(\w+)\s+(rouge)/' regex.txt
2BC