if ($word =~ m/([a-zA-Z0-9\']+)/)
{
  print $1;
}