Here's a simple rename script which does the same thing, and does not require you to install Perl (or anything else).
In the Rename dialog:
[ul][li]Set Old Name to *[/li]
[li]Set New Name to *[/li]
[li]Turn on Script Mode[/li]
[li]Paste this as the script:
Function OnGetNewName(ByRef GetNewNameData)
TitleWords = Split(GetNewNameData.item.metadata.doc.title, " ")
If (UBound(TitleWords) >= 0) Then
OnGetNewName = "BYL " & TitleWords(0) & " - " & GetNewNameData.newname
With the Preview open, click Refresh to test that it works with your real files.
Here's what it should look like:
You can save it as a preset if you will need to use it again in the future, so you don't have to set it up manually again.
Note: I'm assuming Opus 11, so the script uses some things that won't work in earlier versions and allow it to be more concise.