grammar PTN {
  7     token TOP { [<season><episode>
  8     || <year>
  9     || <resolution>
 10     || <quality>
 11     || <codec>
 12     || <audio>
 13     || <region>
 14     || <extended>
 15     || <hardcoded>
 16     || <proper>
 17     || <repack>
 18     || <container>
 19     || <widescreen>
 20     || <language>
 21     || <sbs>
 22     || <unrated>
 23     || <size>
 24     || <threeD>
 25     || <excess>]*
 26     }
 27
 28     token excess { [\w+ \s? \w+ || \s? \w+ \s? || \-]+?  }
 29     token season {\s? <[sS]> <[0..9]>**1..2  }
 30     token episode { <[ex]> <[0..9]>**2 }
 31     token year {\s? [ 19 <[0..9]>**2 || 20 <[0..9]>**2 ] \s? }
 32     token resolution {\s?  \d ** 3..4 'p' \s? }
 33     token quality { \s? WEB \-? DL \s? }
 34     token codec { \s? [xvid || <[hx]> \.? 26 <[45]>] \s? }
 35     token audio { \s? [MP3 || DD5 \.? 1 || Dual <[\- \s]> Audio || AAC <[. \-]> LC || AAC [\.? 2\.0]? || AC3 [\.5 \.1]?] \s? }
 36     token region { R <[0..9]> }
 37     token extended { \s? EXTENDED [\:? .CUT]? \s? }
 38     token hardcoded { HC }
 39     token proper { PROPER }
 40     token repack { REPACK }
 41     token container { \s? [MKV || AVI || MP4] \s? }
 42     token widescreen { WS }
 43     token language { \s? [rus \. eng || ita \. eng] \s? }
 44     token sbs { \s? [Half \-]? SBS \s? }
 45     token unrated { \s? UNRATED \s? }
 46     token size { \s?  \d+ [\. \d+]? [GB || MB] \s? }
 47     token threeD {\s? 3D \s? }
 48 }

 50 my $torrent = 'San Andreas 2015 s03e12 UNRATED 1080p EXTENDED 3D 480MB Half-SBS MP4 WEB-DL x264 rus.eng R5 AAC-JYK';
 51 my $match = PTN.parse($torrent);
 52 say $match;