$line =~ /(?=.*\bfred\s+(\w+)/ ; 

# would get "fred" and anything "-fred"
# how would I avoid that?