open FILE, "$file" or die "$!"; while (){ m/^frz\s=\s(\w+)\;/; print $1; } close FILE; #### -----BEGIN GEEK CODE BLOCK----- Version: 3.1 GPA/P/S d+ s++:+ a--- C++ UL++ P++>++++ L++ E W++ N o? K? w-- !O M- V? PS++ PE- Y PGP- t 5- X+ R* tv-- b++ !DI D---(+) G e- h-- r++ y+++++>+ ------END GEEK CODE BLOCK-----