use v5.10;
use warnings;
use strict;

my $var;
$var = "path_to_my_lib";
$var =~ m/(lib)/;
say $1;

##</code><code>##

if($1){
        say $1;
}

##</code><code>##

if( $var =~ m/(foo)/ ){
        say $1;
}else{
        say "no match found";
}