1 2
my $line = '[1339300800] CURRENT HOST STATE: Something;'; print ($line=~/STATE:\s(\S+);/)
1
Something