#!/usr/bin/perl

$x = "a bet is on you."
if ($x =~ m/a&e&i&o&u/)
 {print matches}
else
  {print does not match.}