if ($line =~ m/balls/ and $line =~ m/rings/) {
  # ...
}