my $pat = qr~
  \@include
  \s+
  ( 
    (?: '[^']*' )
    |
    (?: "[^"]*" )
    |
    (?:
       (?:\\.)
       |
       [^\\s]
    )+
  )
~x;