如何更改一行诗开头的特定字符？

Question

我使用 verse 包。我需要更改诗句开头的特定字符。例如，如果诗句以 A 开头，则应将其转换为 \hspace*{1mm}BA。

\documentclass{book}
\usepackage{fontspec}
\usepackage{xunicode}
\usepackage{xltxtra}
\usepackage{verse}

\begin{document}
\begin{verse}
This is a verse.\\
Another verse.
\end{verse}
\end{document}

我需要一个新命令来打印诗句并改变诗句开头规定的事件。