$x =~ s/.lic/; #### $x =~ s/.lic//;