open(DBFILE,"~/.passwd"); while($line = ) { if ($line =~ /$dbname(\w+)(\w+)/) { $dbUser = $1; $dbPass = $2; } } #### awk '/^abc01/{ print $2 " " $3; }' ~/.passwd #### tempStr: