#!/usr/bin/perl

$_ = "This isn't fantastic, let's drink fanta!";

if (m/(fantastic|drink|is)/) {
  print "$1\n";
}